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RECORD KEEPING FOR ASTRO-BASIC 
l.ilTH BLUE RAM MEMORV 

1 ■ H o m e I III p r o e rn e n t s by A 1 1 e n W . S k o. 99s 4 ■ ' 2 I 8 4 

2 -Re M 1 £ e d t o r 1 6 K B 1 u e R o. m i n A S T R 0 - B A S I c 

E CLEAR; CS—u; PR I NT "STORAGE ->-1 " ; PR I NT " REU I EW -^2 I NPUT " INSTRUC- 
TIONS ->3 "C ; I F C=2 GOSUB 24;A=A+1 

6 IF C = 3 G 0 S LI G 3 0 ; G 0 T 0 5 

7 I H P LI r " S I' A R T ? " A 

3 B = 0; T = 0; FC^^98; BC=1E8; PRINT "READV 

i 0 A = A + 1 ; V r; p x £ + 2' 4 E 7 6 > = K P ? T U = £ < A x £ + £ 4 E 7 6 > 

11 IF ‘;:LAx£ + £4576)=3bB = B+I ; INPUT " " + ( B 

12 IF 4t:Ax£ + £4S7b)=:H6PRINT "SAUING TO TAPE " ; A = A- 1 ; n PR I NT ; 

: PR I NT x(24S7b> . a; PRINT "DONE SAU-ING 

1 3 IF < A X £ + £ 4 E 7 b T = 1 U 4 A = A - I ; r 6 

£ 0 G 0 T 0 i 0 

24 BC=24; FC=7; CLEAR; B=05 T=0 

£ E F U R A = U T U R ; T U = (. A x £ + £ 4 E 7 b T ; IF ‘i t. A x £ + £ 4 E 7 6 J = 3 b B = B + 1 ; 

T = T + *-iB) ; PRINT #0 . + < B T , ; PR I NT " TOT AL = $ " , #0 , T 
26 NExT A 
£S GOSUB EO; RETURN 

3 0 PRINT "PRESS 'LIST' T 0 SEE M E M 0 R V C 0 N TENTS- 

31 PRINT "PRESS 'PRINT' TO SAUE TO TAPE-"; PRINT "PRESS 'GO' 

TO START A NEW LINE- 

3 2 PRINT "PRESS ' $ ' T 0 A D 0 U A L U E S - C W HOLE H U M B E R S 0 N L 'v' :> 

33 IF KP RETURN 

EO A = A- 1 ; PR. I NT " LAST ENTR'y' MADE AT M . #0 n A . #0 " > 

El RETURN 

U s e this p r o 9 r a. rn to s t o r e a. n d r e t r i e u e o, u t o c o s t s h o m e i m p r o o e - 
fM e n t s j c o m p u ter s o 1 1 w o. r e ? re c o r d o. 1 b lj ms e t c • 1 1 is w r 1 1 1 e n t o u s e 
the 0 . d d e d 8 K o t s p o. c e o. c c e s s a b 1 e b y . A S T R 0 - B A S I C ■ T h i s c o u Id be 
m o d i 1 1 e d to s u 1 1 m a n y needs- L 1 1 w ill o. 1 s o r u n i n B - B - o. n d B 1 u e 
R 0 . rfi S u p e r E x t e n d e d B a s i c T 





B 3 9 B 3 ;< i j 0. rii b 1 e + o 3" 0 n i 



1 t 



b = cl i; 3 l.ij •- 6 ; L = 1 M 0 ; Q - 1 0 E 
3 U - 0 3 P = 0 ; 3 = 0; f ■ = 0 ; I O ; J == y ; T = 0 ; C l_ E h R 

10 IHPUI "HOI,.! HhHV numbers DO VOU WONT TO BET OH UP TO THREE? "H; 
i F- H > 30 0 T 0 3 

11 IF = 0 G 0 T 0 120 
13 1!-' N = 2 GOTO 40 
1 3 i F' H = 3 0 0 T 0 6 0 

3 0 INPUT " ill HOT HUMBER?! TO 6?"U;IF U>0!F U<7G0T0 30 
31 GOTO 30 

30 INPUT "VOU MAV BET 1 1 TO fB00"F;IF F.>0IF F<F01GuSUB 80?G0T0 90 



3 1 


G 0 T 0 


3 0 






4 0 


I H P U 


T "UHAT 


T W 0 h 


lUMB 


4 1 


G 0 T 0 


40 






5 0 


I N P U 


T "BETS 


0 N B 0 


TH-> 




IF I 


< 5 0 1 G 0 S L 


i B 8 0 ; 


GOT 


bl 


GOTO 


50 






6 0 


INPIJ 


T "WHAT 


THREE 


HU 
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F F < 


7 I F S > 0 j: 


F £<7 


GOT 


fa 1 


G 0 ! 0 


SO 






7 0 


! NPLI 


T‘ " B e: 1 S 


ON TH 


REE 
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F F< 


501 IF I> 


0 I F I 


<50 


7 1 


G 0 I' 0 


70 






SO 


FOR 


2=0TO 39 


; A = R N 0 < 6 


A 


, B j C 


; GOSUB 8 


3; NEK 


T 3 


8 1 


i ; PR 


INI "THE 


LUCK 


EV 1 


S3 


0 A = A 


; I A = B; UB 


= A ; UC 


= B; ■ 


9 0 


IF ( 


0 — A .1* ■!" ( 0 ~ 


B y +■ (. t.-i 


= C > 1 


91 


IF P 


>0iF c:p = 


A .) + C P 


= B>- 


9 3 


IF S 


> 0 I F < S = A 


> + < S = 


E ' ) + ' 


99 


G 0 1 0 


10 1 






1 U 0 


T = T- 


t'l ; PRINT 


" V 0 U 


W 0 1 


1 01 


PRINT "VOU 


Im'OH" , ^ 


42, ■ 


1 LI 3 


PR It 


-IT " ON 


" :• TOO; 


SUB 


1 03 


P PINT ; G 0 T 0 


1 3 0 





<501 IF 1>0 



IF F>0 



G 0 S U B 8 0 ; G 0 T 0 9 0 



-EAR; CV=0; PRINT #7, 



. ;GOSUB L; PR I NT P 
GOSUB L; PR I NT S 



RH 



NT 




c o n + i n u e d 



Bi9 Six 

i 0 5 P K I H i " V 0 U L 0 S E D N 'S # 2 ? ; R E T U R H 
ilu IP W=0PRINT "VOU'RE EUEN ! 

111 IF W > P R I H T " V 0 U ' R E h H E Fi D $ % # 2 . I.J 

112 IF I..K0PRIHT "VOU'RE BEHIND $",#2.W 

113 FOR Z = 0 T 0 1 0 5 0 ; H E H T Z ? Q 0 T 0 3 

I 2 Li P K I N T " S U ! V 0 U W H N T J 0 C h S H IN E H ? 

12 1 IF W > 0 P R I H T " V 0 LI ' U E W 0 H THE S U M OF $ " , # 2 . W , # 2 , " H 0 T BAD! 
122 IF UKOPRINT "PAV THE CASHIER $ " , #2 , ABS < W > 



123 


I F 


III = 


0 P R I 


NT "VOU DID 


'NT WIN 


ANVTHING BUT 


VOU ARE 


EUEN 


124 


S 1 


;ip 














130 


I F 


< 0 # A 


0 # B ;■ + <; u # C > = 


3 W = W - F ; 


GOSUB 0 SPRINT 


#2. U 




131 


I F 


p) 


0 I F 


< P # A > + ( P # B > 


+ (. P # C } - 


3 W = W - I ; G 0 S U B C 


j; PRINT 


#2, P 


1 32 


I F 


S 1 


01 F 


L S # A ) + < S # B > 


+ '::3#c;j = 


3w=w- J ; GOSUB i: 


:i; PRINT 


#2, S 


i 4U 


G 0 


TO 


1 10 













IBO IF (U-A) + a.i = B) + (U = C;:'PRINT #2,U. 

151 IP ■:;P = A) + <P = B> + '::P = C::' PRINT #2,P, 

152 I P '■ S = A > + < S = B ) + ( S = C > PRINT # 2 ? 3 ? 

IS'H IF T = 0PRINT "BETS! 

I 6 U RET U R N 

B i 9 Si X i s 0 . 9 a m e I c o n y e r t e d f r o rn " M o r e b o. s i c c o m f- u + e r 9 a m e 
b y 0 0 . y id A h I . r o f- 1 o. y I N P U T in "the us u a 1 m a n n e r a n d R U N ■ T h e 9 o. m e 
s 1 0 . r t s by 0 . s Pi i n 9 y o u h o w m o. n y n u rn b e r- s t h o. t y o u w o. n t to bet o n - V o u 
c 0 . n u s e u p t o three. H e x t ? i t a s Pc s h o w rn u c h rn o n e y y o w a n t to bet 
o n EACH n u rn b e r . V o u rn o. y bet u p to f 5 0 0 o n e a c h . 1 1 the n a s P:; s y o u 
what number from 1 to 6 that you want to bet this money on- The 
c o rn p u t e r t h e n p r o c e e d s t o pic k ? a t r o. n d o rn .. 3 s e p a r a t e n u rn b e r s . <. V o u 
h a w e y e r rn a y h a y e o n 1 y bet o n o n e n u rn b e r i 0 r t w o ) o r e y e n three. 

It then holds a d i s p 1 a y o n the c h o o s e n n u rn b e r s a n d c o rn pares 

the rn t o the o n e P U r o n e s i' t h a t y o u h a y e s e 1 e c t e d ? 9 i y i n 9 y o u o. p r i n t 

o u t of e 0 . c P i . A n d o f c o u r s e ? y o u r w i n n i n 9 s U r losses o. r e 9 i y e n . 

This c o n y e r s i o n is f r o rn rn i c r o s o f t basic.lt could be c h a n 9 e d 

t o h a y e si rn u 1 a t e d dice a n d rn o re p 1 a y e r s ? b u t I h a y e o the r t h i n 9 s 

t o d o so that IS u p t o y o u • 




